home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
pcoef.doc
< prev
next >
Wrap
Text File
|
1995-03-31
|
1KB
|
41 lines
(Comp.sys.handhelds)
Item: 362 by billw at hpcvra.CV.HP.COM
Author: William C Wickes
Subj: Polynomial Coefficients PCOEF
Date: Wed May 16 1990 11:53
In a response to a previous note, I listed the HP 48SX version of the PCOEF
program from the HP 28S Mathematical Applications Book. Unfortunately,
both tries to list the program were incorrect, the first because
the SYSEVAL's were wrong, and the second because I left in a comment
word "COERCE" that should have been deleted. Anyway, here is the
correct version:
<<
3 DUPN TYPE SWAP TYPE ROT
TYPE 3 ->LIST { 0 6 9 }
IF ==
THEN DUP 1 + -> n
<< #18CEAh SYSEVAL
SWAP
#549CCh SYSEVAL
#74D0h SYSEVAL
#59373h SYSEVAL
DROP #7497h SYSEVAL
1 n
FOR m m ROLL COLCT
NEXT
n ->LIST
>>
END
>>
195 bytes, checksum #6548h (for the program object).
This program expects to find an algebraic expression in level 3, a name
in level 2, and a number in level 1, where the expression is taken
as a polynomial of order "number" in the variable "name". It returns
a list of the polynomial coefficients in order of decreasing power.
I apologize for the mixups.